home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
nrpas13.zip
/
F1DIM.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-29
|
365b
|
18 lines
FUNCTION f1dim(x: real): real;
(* Programs using F1DIM must declare the variables
TYPE
glndim = ARRAY [1..ndim] OF real;
VAR
ncom: integer;
pcom,xicom: glndim;
and assign values to them externally. *)
VAR
j: integer;
xt: glndim;
BEGIN
FOR j := 1 TO ncom DO BEGIN
xt[j] := pcom[j]+x*xicom[j]
END;
f1dim := fnc(xt)
END;